home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / util / misc / ftransd_2_1a.lha / FTransD_2.1a / amigaguide.library / FTransD_2.1 / ARexx-Scripts / FTCed.ced < prev    next >
Text File  |  1995-07-15  |  4KB  |  109 lines
  1. /* $VER: FTCed.ced 1.3 (05.06.95)
  2.  *
  3.  * FTrans-CygnusEd ARexx-Script (c) Copyright 1994/95 by Rainer Hess
  4.  *
  5.  * ARexx-Script, da▀ das Wort unter dem Cursor von CyngnusEd austauscht.
  6.  *
  7.  * Diese Script zeigt den Weg ⁿber eine Datei. Den bessere kⁿrzere
  8.  * Weg, wΣre ⁿber den ARexx-Befehl WORTARG von FTrans. Siehe hierzu
  9.  * auch das ARexx-Script FTCed2.ced.
  10.  *
  11.  * V1.1 - csGetWord() nach csgetword() geΣndert.
  12.  * V1.2 - Meldung ob FTEcho an oder aus ist entfernt.
  13.  * V1.3 - ARexx-Port-Name fⁿr FTrans V1.7 geΣndert. LockGUI/UnlockGUI
  14.  *        neu hinzu.
  15.  */
  16.  
  17. options results
  18.  
  19. CR = '0A'X                     /* Carrige Return                    */
  20. BLOCKFILE  = 't:FTransWort'    /* Dateiname fⁿr Austausch festlegen */
  21.  
  22. /*
  23.  * rexxcedsupport.library einbinden.
  24.  */
  25.  
  26. if ~show('l',"rexxcedsupport.library") then do
  27.    call addlib 'rexxcedsupport.library',0,-30,0
  28.    if (result = 0) then do
  29.      okay1 "Die rexxcedsupport.library kann nicht eingebunden werden!" CR || "Evtl. ist die rexxcedsupport.library nicht installiert..."
  30.      exit
  31.    end
  32. end
  33.  
  34. /* --- ob FTrans aktiv ---*/
  35.  
  36. if ~show( 'p', 'FTRANS.1' ) then do
  37.   okay1 "Oops! FTrans ist nicht aktiv." CR || "Bitte FTrans aktivieren..."
  38.   exit
  39. end
  40.  
  41. /* --- CygnusEd --- */
  42.  
  43. on = 0                         /* Merker vorbesetzen                    */
  44.  
  45. address 'rexx_ced'             /* CygnusEd Arexx-Port suchen            */
  46.  
  47. status 11                      /* Layout Abfragen                       */
  48. if( result = 1) then do        /* Wenn Layout ein dann ausschalten!     */
  49.   layout                       /* Layout macht Probleme beim Zeilenende */
  50.   on = 1                       /* Merken ob Layout ein war              */
  51. end
  52.  
  53. status 82                      /* Datei editierbar ? */
  54. if( result = 0) then do
  55.   okay1 "Datei ist nicht editierbar! Falls dies" CR || "doch erwⁿnscht ist, CygnusEd auf Datei" CR || "editieren umschalten..."
  56.   exit
  57. end
  58.  
  59. if( open(outfile,BLOCKFILE,'W') = 0) then do
  60.   okay1 "Die ▄bergabedatei """BLOCKFILE""" ist " CR || "nicht zu ÷ffnen! Abbruch..."
  61.   exit
  62. end
  63.  
  64. cedwort = csgetword()          /* Wort unter Cursor von CygnusEd abholen  */
  65. writech(outfile, cedwort )     /* Wort in ▄bergabedatei speichern         */
  66. close(outfile)                 /* ▄bergabedatei schlie▀en                 */
  67. csdelword()
  68.  
  69. /* --- FTRANS --- */
  70.  
  71. address 'FTRANS.1'             /* FTrans Arexx-Port suchen                */
  72.  
  73. LockGUI                        /* Eingaben ⁿber die GUI sperren           */
  74.  
  75. FTEcho "off"                   /* FTransARexx-Echo auschalten             */
  76.  
  77. OldPublicScreen                /* Alten PublicScreen abfragen             */
  78. oldpubscr = result             /* Alten PublicScreen merken               */
  79.  
  80. PublicScreen "CygnusEdScreen1" /* LernWindow auf Ced-Screen umschalten    */
  81.                                /* Nur m÷glich CygnusEd als PublicScreen   */
  82.                                /* lΣuft. Ist im FTrans-Menⁿ: Bildschirm   */
  83.                                /* aktiv, k÷nnen die PublicScreen EintrΣge */
  84.                                /* auch entfernt werden.                   */
  85.  
  86. Wort BLOCKFILE                 /* FTrans auf Wortⁿbersetzung umschalten   */
  87.                                /* Dateiname in mit WORT in BLOCKFILE.     */
  88.  
  89. PublicScreen oldpubscr         /* LernWindow auf vorherigen PublicScreen  */
  90.                                /* zurⁿckschalten                          */
  91.  
  92. UnlockGUI                      /* GUI wieder freigeben                    */
  93.  
  94. FTEcho "on"                    /* FTransARexx-Echo wieder einschalten     */
  95.  
  96. /* --- CygnusEd --- */
  97.  
  98. address 'rexx_ced'             /* CygnusEd Arexx-Port suchen */
  99.  
  100. include file BLOCKFILE         /* Block wieder einfⁿgen, evtl. ⁿbersetzt */
  101.  
  102. if( on = 1 ) then do           /* Layout war eingeschaltet, */
  103.   layout                       /* dann wieder aktivieren    */
  104. end
  105.  
  106. address command 'c:delete >NIL:' BLOCKFILE  /* Austauschdatei l÷schen  */
  107.  
  108. exit 0
  109.